Introduction

There are several advantages to dedicate a data visualization portfolio and 10-week effort to digital currency:

This paper will explore some data sources published by major Bitcoin exchanges and platforms as an market overview.

Graph one

rectangle <- data.frame(xmin = as.POSIXct(c("2017-03-25")),
                        xmax = as.POSIXct(c("2017-10-21")),
                        ymin = -Inf,
                        ymax = Inf)

line <- ggplot(data=btc_price) +
  geom_line(size=.25,
            aes(Date, Value),
            color="#325a8c") +
  geom_vline(xintercept = as.POSIXct("2017-03-25"),
             colour="#ff7575",
             size=.5,
             linetype="dotted",
             alpha=.75) +
  scale_y_continuous(name ="Bitcoin Market Price in USD",
                     breaks = (seq(0,6000,1000))
                     ) +
  scale_x_datetime(date_breaks = "1 year",
                   labels = seq(2009,2018,1),
                   expand=c(0,0)) +
  ggtitle("Bitcoin Price",
          subtitle = "experienced the greatest surge in history this year") +
  labs(caption = "Source: Blockchain.com") +
  annotate(geom="text",
           x=as.POSIXct("2016-01-01"),
           y=2200,
           label="Surge started on Mar 25, 2017",
           colour="#ff7575",
           family="Avenir",
           fontface="bold",
           alpha=1) +
  theme_jiye

line + geom_rect(data = rectangle, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
                 fill = "#ff7575", alpha = 0.1)


Bitcoin price is volatile

The price of bitcoin can increase or decrease drastically over a short period of time. This graph mainly serves as a priliminary evidence to pinpoint certain time points where a new policy or event may have impacted the price of Bitcoin.



Graph two

theme_jiye <- theme(panel.grid.major.y = element_blank(),
                    panel.grid.major.x = element_blank(),
                    panel.background = element_blank(),
                    plot.title = element_text(size=18,
                                              family = "Helvetica",
                                              colour = "#3a3a3a",
                                              face = "bold"),
                    plot.subtitle = element_text(size=12,
                                                 family = "Avenir",
                                                 colour = "#666666"),
                    axis.title.y = element_text(colour="#325a8c"),
                    axis.title.x = element_blank(),
                    axis.text.y = element_text(colour="#325a8c"),
#                    axis.text.x = element_blank(),
                    axis.ticks.y = element_blank(),
#                    axis.ticks.x = element_blank(),
                    legend.position = "none",
                    plot.caption = element_text(size=8,
                                                family = "Avenir",
                                                colour = "#666666",
                                                hjust = 0
                                                ),
                    plot.margin = unit(c(1,1,1,1), "cm"))

hist <- ggplot(data=country_list, aes(reorder(factor(country), node), node)) +
  geom_col(width=0.9, position=position_dodge(width=5), fill = "#999999") +
  geom_text(aes(label=node),
            color="#666666",
            position=position_dodge(width=0.9),
            vjust=0.35,
            hjust=-.25
  ) +
  ggtitle("Bitcoin Nodes Distribution by Countries",
          subtitle = "Number of reachable nodes as of Oct 21, 2017") +
  ylab("") +
  xlab("") +
  labs(caption = "Source: BitNodes") +
  theme_jiye +
  scale_x_discrete(expand=c(0,0)) +
  coord_flip()

hist

Which countries are more crytocurrency-friendly?

Countries that have more reachable nodes means more people in the countries are involved in Bitcoin mining, which indicates that these countries are more likely to have policies, or the lack of, to support the development of cryptocurrency. For an explorative analysis, this graph is helpful for narrowing down the origin of some major policies that have shaped the development of Bitcoin. If we consider this graph as a ranking of countries’ involvement in digital currency. It is interesting to note that, this ranking is not necessarily ordered in exact accordance with the ranking of GDP, population, technological advancement, or even perceived internet presence.



Graph Three - stacked area